home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / counter.rexx < prev    next >
OS/2 REXX Batch file  |  1992-03-14  |  1KB  |  42 lines
  1. /*
  2.    Counter.rexx Copyright Gold Disk Inc., February, 1992
  3.    This macro keeps a running counter. It is useful for enumerating values
  4.    such as lines, page numbers etc.
  5.    Use it in the following manner with mergecodes
  6.    a.   First initialize a counter by calling the function with a new name
  7.            example: ««=counter.rexx(newname,1)»».
  8.         This will initialize a new counter named newname with a value of one.
  9.         When the ReplaceMergeCodes Genie is run, the entire string will be 
  10.         replaced by the value of 1.
  11.    b.    Call this function whenever the next value is needed:
  12.            Example:
  13. */
  14.  
  15. parse arg counter, init, incfunc
  16.  
  17. if init ~= '' then
  18. do
  19.     val = init
  20.     call setclip(ppuser_counter||counter, init)
  21. end
  22. else
  23. do
  24.     val = getclip(ppuser_counter||counter)
  25.     if val = '' then val = 0
  26. end
  27.  
  28. if incfunc ~= '' then
  29.     call setclip(ppuser_func||counter, incfunc)
  30. else
  31.     incfunc = getclip(ppuser_func||counter)
  32.  
  33. rval = val
  34.  
  35. if incfunc ~= '' then 
  36.     interpret "val = val "incfunc
  37. else 
  38.     val = val + 1
  39.  
  40. call setclip(ppuser_counter||counter, val)
  41. return(rval)
  42.